home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / fg / fgl402f / exfor.arj / TEMP / 14-10.FOR < prev    next >
Text File  |  1995-01-20  |  2KB  |  57 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER*2 SOLID(32), HOLLOW(32)
  6.       INTEGER OLD_MODE
  7.       INTEGER COLUMN, ROW, LAST_ROW
  8.       INTEGER FG_AUTOMODE, FG_GETMAXX, FG_GETMAXY, FG_GETMODE
  9.       INTEGER FG_MOUSEINI, FG_XALPHA, FG_YALPHA
  10.  
  11.       DATA SOLID /
  12.      +   #E03F,#E03F,#E03F,#0007,#0007,#0007,#0007,#0007,
  13.      +   #0007,#0007,#E03F,#E03F,#E03F,#FFFF,#FFFF,#FFFF,
  14.      +   #0000,#0F80,#0F80,#0F80,#7FF0,#7FF0,#7FF0,#7FF0,
  15.      +   #7FF0,#0F80,#0F80,#0F80,#0000,#0000,#0000,#0000/
  16.  
  17.       DATA HOLLOW /
  18.      +   #E03F,#EFBF,#EFBF,#0F87,#7FF7,#7FF7,#7FF7,#7FF7,
  19.      +   #7FF7,#0F87,#EFBF,#EFBF,#E03F,#FFFF,#FFFF,#FFFF,
  20.      +   #0000,#0000,#0000,#0000,#0000,#0000,#0200,#0000,
  21.      +   #0000,#0000,#0000,#0000,#0000,#0000,#0000,#0000/
  22.  
  23.       CALL FG_INITPM
  24.       OLD_MODE = FG_GETMODE()
  25.       CALL FG_SETMODE(FG_AUTOMODE())
  26.  
  27.       IF (FG_MOUSEINI() .LT. 0) THEN
  28.          CALL FG_SETMODE(OLD_MODE)
  29.          CALL FG_RESET
  30.          STOP ' '
  31.       END IF
  32.  
  33.       CALL FG_SETCOLOR(15)
  34.       CALL FG_RECT(0,FG_GETMAXX(),0,FG_GETMAXY())
  35.  
  36.       CALL FG_SETCOLOR(12)
  37.       COLUMN = FG_XALPHA(FG_GETMAXX()/2) - 6
  38.       LAST_ROW = FG_YALPHA(FG_GETMAXY())
  39.  
  40.       DO 10 ROW = 0,LAST_ROW
  41.          CALL FG_LOCATE(ROW,COLUMN)
  42.          CALL FG_TEXT('example 14-10',13)
  43. 10    CONTINUE
  44.  
  45.       CALL FG_MOUSEVIS(1)
  46.       CALL FG_WAITKEY
  47.       CALL FG_MOUSEPTR(SOLID,6,6)
  48.       CALL FG_WAITKEY
  49.       CALL FG_MOUSEPTR(HOLLOW,6,6)
  50.       CALL FG_WAITKEY
  51.  
  52.       CALL FG_SETMODE(OLD_MODE)
  53.       CALL FG_RESET
  54.  
  55.       STOP ' '
  56.       END
  57.